миа | 


THE TINY MICRO COMPUTER NEWS SERVICE 


INDEX 


VOLUMN I : 


ISSUES #1 - 6 


(January - July 1980) 


ARTICLES 


First Annual Cursor Music Contest.......20 
Goal of Спа соса окове 
Growing Рвілб6.».ь.“--ы-»-»»%%%%-%4»%%5.% eee 
Notes, МөЕісей.»----5%»»%%ыеееечеее».,-229 
Statement of РОЛУ... е. o eco pono cosadd 
What's __ лесок совок AE | 
Winter Consumer Electronics Show.........9 
Worlds НЖасойд....2-..--..»-»>ее%-4:і5-%.»227 


CLASSIFIEDS............16,23,24,32,40,48 


HARDWARE, BOOKS AND PRODUCTS 


ASCII Keyboard - Hook-up & Parts.........4 
Computer Ear - Anderson Research 
Product p UT I рт А + 


Direct Video/Audio Circuit..... cient awa ee 
Mother ооо сане а 
New Cursor Products:  NEWS..... T .41 


Full-sized ASCII Keyboard 

Memory Add-On 

Printer 
Printer - Hook-up & Parts...............11l 
Technical Manuals, Book Orders....22,30,45 
Video Ба По < osc csc tus sedesiceeseveses oth 


PROGRAMS 


Alarm Clock = M, Реасе.........-.--..»...24. 
Arcade Golf - M. Maslowski..............42 
Camel - Cursor Adventure................12 
Character Set Size Multiplier 

FP. CONXBBUN. ao sii wb ts око сокове че = „22 
Chicago Loop = M. Реасе....:............ 21 
Clear Letter Variables (А-2)............10 
Electric Bill Analysis - Cursor..........2 
Enhancement to Electric Bill-C.Zellers..10 
Floting Point Math - B. Templeton.......46 
Galactibattle - B. Lathrope............. 35 
Hex to Decimal Converter - F.Cornett....11 
Life Synthesis Model - F. Cornett........6 
Mazemaker - M. Реасе....................46 


Othello = Bs. ВАЛЬ vaL. са кадија а « Дб 
On-Board Clock - Cursor...... ME ED. evoca а . 10 
Plastic Puzzle =- Pe: Gornett..svvax ико « . • 3 
Ring ~ А: Рай ыс г ол» tep eroso ene жааай» 0% 
Rotation ~R- peaked. 3% 2445;..22.5%ь2222ЬР2 
Sorters: Bubble Sort - T. Hayes.........12 
Sheli-Metzner - M. Giwer.......46 

String Array Memory Locator = Cursor.....1ll 
Three-Voice Music Assembler -B. Bilbrey..17 
Correction for Music Assembler........3l 
Chopsticks ~ F. Cornett...............19 
Star Wars Music - M. Nelepa.......... „19 
Wumpus.- С. Pruitt & В. Leake............14 


PROGRAMS BY AUTHOR 


BILBREY, Brett , 
ОБРАЗ ЛӘ pur eure dus аты» a de s ca 
Three-Voice Music Assembler...........17 

CORNETT, Fred 
Character Size Multiplier.............22 
Clear Letter Variables (A-2)..........10 
Chopsticks = Ново: ро hoe s мы 
Hex to Decimal Converter..............1l 
Life Synthesis Койб1......»....,.-----.б 
Plastio Puzzle. orsssossrsde sco oct ev oe 

CURSOR 
Camel =. Адуелілге........6..........5%42 
Electric Bill Analysis........... V... 2 
String Array 1сосағок.............2.22441 
On-Board СТОЕК ао воза sees вав о ОО 

GIWER, Matt 


ShelleMetsner б5огк%................... „46 
HAYES, Tim (Sebrees Computing) 

Bubble Баке, eee kde ned idcm Rma "m 
LATHROPE, Brett 

Сала зала, і45-4%»%к>554444568-... 35 
LEAKE, Robert | 

ПОЛЕТОВ ыы errr ree Tee eee ee 2.42 


Wumpus. ә ө ө ө ® ө ө ө ө с ө ө ә Ф э о ә ө © э 009» 9990090 o 14 
MASLOWSKI, Mike 
Arcade Golf э © э э э O ө € O ө э 9 9 ә 9 D © ө ө ө ө o o Ф o o c 42 


PROGRAMS BY AUTHOR - CON'T 


NELEPA, Marion 


Star Wars MOüSLO. .ь...... Pages année 19 
PAUL, Albert 

Біпд45................................ 31 
PEACE, Mike (Wavemakers) 

Alarm CIDER soos 66545 egs ROK Kee noas tog ЗЬ 

Chicago ісор....»-..-«-%»--4--%-24... 21 

МОСИНА са E TT ETISIEIL OI. CILIT ILLI 46 
PRUITT, Chris 

WOES И туре 14 
TEMPLETON, Bill 

Floating Point Math. vA д... 46 
ZELLERS, Chuck 

Enhancement to Electric Bill......... 10 


TUTORIALS, CHARTS AND OTHER 
INTERESTING STUFF - 


ASCII Conversion Chart............... xad) 
Auto-Run (after loading tape)............ 2 
Byte=Savef Soes no teen choo temas PETERE 
Cursor Control Chart....a» =» Ri audi pde вче ar 39 
DM А Graphics (Anderson Research)...... 25 
D M A Graphics, Table. a nage ane и ње es реке 28 
February Cartoon Explanation............ 42 
Internal Calculator.isesoo њи + — жж l 
Memory М арии не а wee en nes баре 14 
Machine Папададе........................ 10 
Peek "К". Pol. оао ль Wee ујео БӘӘ ә 10 
Print Statements. си с «wil ss e" wed 
Screen Format Output РогЕв.....»......-. 21 
Three Voice Music Assembler............. 18 
USER GROUP. NEWS ............... Mer NT у, 
VENDORS 

Anderson Research.......... а ела кн 31,48 
Cursor Software. seses nh a TR RR A = аб, 32 
ӘБЕЕЕЕВ» „2. +8. ва a ЙЫ» CO e © 24 
WaveMakers....x ни жээги». >». ы қыт» 24,40 


Special THANKS go to 


Melanie Premo Hall for 
her time and effort in 


compcling this índex 


111 


э ә ә 


2CURSOHN 


The Tiny Micro Computer News © 


JANUARY 1980 


Cursor's New Years gift to you is getting this issue in your mailbox prior 
to the 4th of July. Bally has invited the Cursor staff to the "International 
Winter Consumer Electronics Show" being held in Las Vegas in January. Bally 
is planning a private show in their Hilton suite. We will tell you all about 
it in Issue #2. 
We have included three programs in this issue, two of which are totally the 
design (for better or worse) of Fred Cornett (Plastic Puzzle & Life Synthesis 
Model), the other program is stolen from another publication, and has been 
rewritten for the Bally (for the purpose of better understanding conversion 
from one BASIC to another): "Electric Bill Analysis" is a translated version 
of "POWER" by Karen S. Wolfe (written in North Star BASIC) in the October 
issue of BYTE, І have had many, many requests for a tutorial regarding the 
translation of printed programs written in other versions of BASIC. 


For those of you desiring the ability to translate other BASIC programs to 
Bally Tiny BASIC, I can only offer 2 bits of advice: 


1. You must fully understand all Tiny BASIC statements before attempting 
any translation. 
2. You must fully understand the BASIC statement you wish to translate. 


Since most of us don't have the ability to work interchangeably with other 
BASIC versions, I would, without reservation, recommend the purchase of 

"The Basic Handbook" by David А. Lien. This book explains the purpnen of 
most statements utilized by all major versions of BASIC. 


ELELIRID BILL 


This program utilizes the "internal calculator", which renders an answer 
with 16 digit accuracy in the following formats  NNNNNNNN.,NNNNNNNN 


This routine uses 18 string variables @(А), to load a number. The instruct- 
ion is: ФҒЕ(А),8(В),0(С) Where F=Function (+x-+) 

A=Beginning location of number to be manipulated 

B=Beginning location of number doing the manipulating 

C=Beginning location of Answer 
I have bypassed the proper utilization of the internal calculator routine by 
formatting, instead of leading zero suppression, etc. I did not use overflow 
or sign indicators as they would not apply. Also, 1 did not make any attempt 
to save bytes as I felt it was unnecessary. Enough space is left for consid- 
erable expansion for those so desirous. | 


When prompted for $ Amount of electric bill, please input the Total of all 
$ amounts, tax, fees, etc. 


NOTE: You may have noticed that the Tiny BASIC statements used in this 
newsletter differ in format from the statements you are used to 
using. Do not alter the statements to conform to what you think 
the statement should look like; such as adding final quotes, ефс., 
the statements herein use a shorthand Tiny Basic which will work! 


ELECTRIC BILL ANALYSIS 
PROGRAM EXPLANATION 


1-163 Input Info i 
18Й Subtract beginning reading at @(18) from ending reading at С(Й) 
and place answer (KW Hours) at &(54) 
Divide amount of bill at @(36) by KW Hours at 8(54) and place 
answer (Price per KW Hour) at @(72) 
268 Clear registers at: ha 9(18), 8(36), 8(54) 
27Й Clear registers at: 8(9Й), 8(108), &(126), 3(144) 
357-387 Input info 
390 Multiply wattage at B(Z) by Hours of Appliance Use at & (126) and 
Place answer (Watt/Hours) at 2(36) 
Clear &(fl), @(18), and forces "ІЙЙЙ" at (ЙИ) 
395 Divide Watt/Hours at &(36) by "lg" at Ә(Й) and place answer 
(Kilowatt/Hours) at &(18) 
400 Multiply Kilowatt/Hours at 8(18) by Price per KW/Hour at &(72) and 
place answer at @(54) 
410-483 Print Answers 


NOTE: А11 listings printed in Cursor utilize the same Special Character Set 
As your "ARCADE", Іп other words: What you see is what you type, i.e., 
Bally Multiplication Sign=Lower Case X on listing (5x4). 


AUTOMATIC RUN AFTER LOADING TAPE: When you are ready to save a program оп 

tape; instead of typing PRINT; LIST 

type: NTz1;:PRINT ¿LIST ¿PRINT "s;RETURN ;TV=13;NT=3; RUN 

Do not press go until tape is recording. After you press GO, the program 
will be saved on tape as before with the exception that upon completion of 
taping, it will print:  :RETURN ;TVz13;NTz3;RUN оп tape. When you input the 
program later, it will, upon completion of the load, run the program auto- 
matically even if you forgot to turn off the Tape Recorder. 


ELECTRIC BILL ANALYSIS SZ=630 


1 NT=1 
ЈИ CLEAR ;FOR А=ЙТО 143;9(А)=Й;МЕХТ А;ВС=1й;РС=В 
20 PRINT "THIS PROGRAM ANALYZES ^ POWER USAGE AND COST 


4f FOR As1TO 20 ;NEXT А 
120 GOSUB 50 ;РВІМТ "INPUT ENDING METER READINGFROM ELECTRIC BILL (XXXXX) 
122 РОЯ Е-12Т0 BSTEP -1;G(E)sKP; TVEQ(E);NEXT E 
140 GOSUB 5ИЙ;РАТМТ “INPUT BEGINNING METER";PRINT "READING FROM BILL (XXXXX) 
142 FOR В=ЗЙТО 265ТЕР -1;@(В)=КР;Т\У=@ (В);МЕХТ B 
160 50508 SEZ;PRINT "INPUT $ AMOUNT OF BILL (XXX, XX) 
162 FOR T«46TO0 425ТЕР -1;IF T=43PRINT ",", 
163 G(T)sKP; TVsB(T);NEXT T 
18И 5-8(0), 8(18), Q(54); $20(36), 2154), g(72) 
260 FOR А=71Т0 ИЗТЕР -1; ;G(A) E; NEXT À 
270 FOR А-149Т0 9Й5ТЕР ME @(А)=Й; NEXT A;CLEAR 
358 GOSUB 5ЙЙ;РАТМТ "SELECT AN APPLIANCE AND INPUT WATTAGE (XXX) 
368 PRINT ;FOR М=1ЙТО В5ТЕР -1;GQ(W)sKP; TV-B(W);NEXT W 
370 GOSUB 5ИИ;РАТМТ "INPUT THE ESTIMATED TOTAL HOURS OF APPLIANCE USE 
375 PRINT "DURING BILLING PERIOD (хххх) 
388 FOR Н-137Т0 1345ТЕР -1;@(Н)=КР;Т\У=@(Н);МЕХТ H 
392 $x@(2),@(126),8(36);FOR А-35Т0 ИЗТЕР -1;8(A)sff;NEXT A;Q(11)249 
395 %:2(36),2(0),2(18) 
402 $x2(18),0(72),8(54) 
41И CLEAR 
420 PRINT "YOU PAY PER KWHOURS$Z.", 
422 FOR С-79Т0 765ТЕР -1;TVsG(C); NEXT C; PRINT 
43) PRINT 
440 PRINT "APPLIANCE USED ",;FOR K=29TO 24STEP -1;ІҒ Ke25PRINT ".", 
445 TVeB(K);NEXT К;РА1МТ ;PRINT "Kw HOURS OF POWER 
450 PRINT 
460 PRINT "BILLING PERIOD COST OF THAT POWER Џ5ЕАБЕ=%", 
465 FOR Dx64TO 6Й5ТЕР -1;IF D=61PRINT ".", 
466 TVsG(D);NEXT D;PRINT 
470 PRINT 
48] PRINT "COST PER EST. HOUR'S USE =$Й.", 
482 6:0(54),0(126),8(1И8) 
483 FÜR Z-115T0 1125ТЕР -1;TVaQ(Z);NEXT Z 
498 PRINT " PRESS ANY NUMBER", 
495 A=KP;GOTO 260 
SØØ CLEAR ;PRINT "PLEASE PRECEDE WITH ZEROES";PRINT ;RETURN 
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BYTESAVING HINTS: 


By now, some of you have input the preceding program and noticed that the 
number of bytes remaining (obtained by PRINT SZ) on your machine is wines 
what less than we have stated. 


A good habit to use whenever you desire to print an instruction or comment 
on screen, is to make as much use of the command words as possible (RUN, 
CLEAR, INPUT, ETC.). These command words occupy 1 byte total versus 1 byte 
per letter if input letter by letter. 


PLASTIC PUZZLE 


This program was challange for me, as I needed one more program to show 
the versatility of the PX function. I would imagine the game is just as 
boring as the 50g plastic version. The non-programmer will look at the 
display and say "Big deal!". The programmer will ask how the letter being 
moved knows where the blank space is. 50, I have printed this program to 
offer a sharp little PX Routine and not for the abject thrill of playing 
the game, 


For those of you that are unfamiliar with this game, the object is to move 
the letters around until they are in alphabetical order. One project you 
programmers might consider, is writing an end to the game when the letters 
ar& all in proper order, 


PLASTIC PUZZLE PROGRAM EXPLANATION: 
2 Set Colors & divide screen 
10- 30 Creat game board 
5Й- ТИ Selects random letters(A-0 no duplicates)& places them on-screen. 
1ЙЙ- 140 Input letter to be moved 
15Й- 225 Go to location of letter to be moved and see if an open square 
is adjacent to it (not diagonal) 
227 If open square exists inside game board adjacent to letter to be 
moved-clear square of letter to be moved 
229 Same ав 227 except creates moved letter in new square 
230 If no open square exists adjacent to letter to be moved (inside 
game board) Illegal Move-Restart sequence 
1181 Clears left side of screen 
1200-1210 Positive Pixel Search parameters 


PLASTIC PUZZLE Ву: F. Cornett 52=982 
1 CLEAR 
2 NTz3;&(7)289,&4(1)2895&(2)2163;&(3)2163; ВС=89;ҒСа11;4(9)=28 
5 С=1ИЙЙ; 0=С+1 
1f CLEAR ;BOX 54,2/,41,41,1;F0R AwlTO 33;@(А)=И;МЕХТ А 
20 FOR У=З5ТО SSTEP -1Й;ҒОН Xm39TO 69STEP 14 
34 BOX X,Y,9,9,25; СХаХ+1; СУ=У 
SØ AsRND (16);IF @(A)GOTO 50 
52 IF А-«16ТУ«32;Й(А)«Х; (Ағ16)-Ү;5070 70 
60 TVxA*64,G(A) xX; G(A*16)uY 
TÉ NEXT X;NEXT Y 
11И GOSUB C;GOSUB D;PRINT "INPUT LETTER";PRINT "YOU WISH TO ";PRINT "MOVE USING"; 
PRINT "KN(1) & TR(1) 
110 CYz85;CXa-71; NT» 
120 LxKN(1)217472;TV«L 
130 IF TR(1JGOTO 150 
140 GOTO 110 
150 МТ=1;Х=0((- 64); Yaa(L-48) 
200 бай; Най; 5=\;Е=жЙ;Р=Х+1Й; 50508 1207 
210 5=Ү-11;Ға=Х; 50508 1200 
220 5=7;Р=Хх- 10: 50508 1207 
225 5=\+1Й;Р=Х;БО5ИВ 1200 
227 IF E<GIF GIF На(16)=Х; 2 (32 јау ; СХеХ; Су=у ;ТУ=32 
229 IF EXAIF GIF HO(L-64)G;Q(L-48) =н; СХ=б +]; Сун; Туа; БОТО 100 
230 GOSUB D;GOSUB C;PRINT "ILLEGAL";PRINT "MOVE"; PRINT sPRINT ¿GOTO 182 
1820 CXe-71:; ;СҮ=4й; RETURN 
1001 BOX -23, 8,114,88,2; RETURN 
1200 IF PX(F-2,S*3)EmE«1; RETURN 
1205 IF PX(F42,543)EmE41; RETURN 
1206 IF РХ(Р+2,5-3)Е=Е+1; RETURN 
1207 IF PX(F,S-3)EzxE«1;RETURN 
1208 IF PX(F-2,5-3)EsE-«1; RETURN 
1209 IF (2<39)+(2>7И)+(5»35)+( 565 )Е=Е+1 ; RETURN 
1210 Бар ;Не5; RETURN 
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The following article has been printed here due to the patience and lar- 
gess of Ed Mulholland, who lacking any formal education in this field, 
beat his way through all the printed matter available to finally arrive 
bearing a functional full sized ASCII Keyboard interfaced to the Arcade 
(Why don't the "professionals" among us ever share information?). This 
wearied warrior still awaited yet one more gruesome test of his patience; 
that of instructing the Cursor Editor what the hell this all meant. Whew!! 


We have it on good authority (Mrs. Cornett) that the Cursor Editor is a 
functional idiot when it comes to putting things together. Therefore, we 
very strongly suggest you run right out and buy "TV Typewriter Cookbook" 
by Don Lancaster. This book contains rather complete instructions & 
information on such things as - Baud-Rate Generators--Keyboard Encoders-- 
PROM--RAM--Serial Interface UARTs--Bus Organization--What to look for when 
buying a keyboard--Radio Data Links--Modems--Printers, etc. ІҒ you aren't 
an old hand at wiring up your own projects - buy Lancasters book before 
you do anything else. 


As Ed Mulholland points out - there are a number of ways of adding a Кеу- 
board, I wrote Jerry Tindle (who has also added a keyboard) over a month 

ago and have not, as yet, received an answer. If you have a keyboard or 

any other device, please drop the Cursor a line and let us know something 
about it! 


FULL SIZE ASCII KEYBOARD 
By: Edmund Mulholland 


The basic idea is to provide serial data from a keyboard through the 
Cassette Interface at 150 baud and then read this data with a :INPUT. 


I used an AY51013A UART board sold by Electronics Systems because I was 
not sure what I might need to develop this system, and also because it 
provides various methods of manipulating. For those who want to save 
some money, my schematic is shown without this additional circuitry. The 
keyboard encoder is an AY53600. I chose this encoder because it has а ~ 
latched output rather than a continuous stream of data. You release this 
data by taking a negative strobe from Pin 16 of the encoder and applying 
to Pin 23 of the UART. I used a .lmf capacitor for а longer key debounce 
time, and used the clock from the interface to synchronize the UART, It 
may be possible to use other methods that would work; but, being anxious 
to use the keyboard, I left it this way. Also, a TPST switch is used to 
isolate the data entries. Тһе addition of the 2.2K and 22K resistors 
eliminate the need for the switch, but it would not hurt to have a method 
of isolating these signals. 


I have not been able to get the inputs у PAUSE 60+10 HALT. Ав you can 
see, these characters are only a minor inconvenience and can be added to 
the program later. Also, other characters are available as new graphic 

. symbols. 


The cost of the keyboard for this project is approximately $50.00, not 
including a power supply. І chose to use a separate power supply because 
of not knowing how much power the Bally unit could provide, and also be- 
cause I neek power for future additions. My choice was JAMECO, the JE200 
and JE205, If this is your choice, pay close attention to the instructions 
on winding the toriodal transformer, This addition increases the cost to 
approximately $80.00. If the Electronics Systems board (with parts) is 
used, the cost is approximately $110. By shopping the surplus stores and 
maybe using a smaller power supply, you can cut your cost to approximately 
$50.00 or less. | 


Only а few keys need to be remarked from a standard keyboard, and this is 
left up to the user to decide, You can check the truth table and decide 
what you want. 
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| AYS-3600 TRUTH TABLE | Keep in mind, Bally uses 
PIN 17 18 IN eight bits, with the М5В 


19 209 м 2 233 24 235 26 P 
< d ^ 7 > | а | bit always a zero. This 
в truth table works only 
1 | вох | > + RETURN 1 : ' 
when wired as shown;other- 
ы Ж J ^ м wise, you will get differ- 
TO | INPUT IF GOTO ent results. The Control 
< L E key is not used, but some 
z L NEXT users may want to try 
R F [SPACE i various ideas. 
FOR SPACE z 
T С 
PRINT S 
> Y H B > је 
6 LIST| tinas ; 
& U J N < P 
7 | STEP| RUN | GDTO <  RETUR 
I K M ? + < ( 
CLEAR! МЕХТ| IF | / - ( 
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2 Anyone wanting additional 


May write: 


Mr. Edmund Mulholland 
Route 4, Box 424 H 
№. Wilkesboro, NC 28659 


You must include a stamped 
self-addressed envelope if 
you desire a reply! 
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33 
If you decide to build 


( 0 L С < | Йй à "jab 
32 2 this project, please let 
Wy [ARGNO] Бтр gd. lir the Cursor know of your 
PIN 17 18 19 20 21 22 23 24 25 26 PIN results and problems. 


LIFE SYNTHESIS MODEL 


The rules are Simple: | 
1. Survival. Every cell with 2 or 3 adjacent cells survives for the. 
next generation. 
2. Death. Each cell with 4 or more neighbors dies from overpopulation. 
Every cell with 1 neighbor or none dies from isolation. 
3. Births. Each empty cell adjacent to exactly 3 live cells is a 
birth cell. 


Using the grid supplied, plot the location of your starter colony. Best 
results are obtained by keeping the cells in one area. After inputting 
the starter colony, the computer will search the complete field, taking 
approximately 25 minutes. This will occur only during generation #1, on 
subsequent generations, the computer will only search those quadrants 
where life exists. Please note the "search locators" on the top and left 
side of the field border. The locators will show you where the computer 
is currently performing a search. 


I know of a few areas where a minimal amount of memory could be saved, 
such as substituting a variable for GOTO (57) or (61), but I would like 
very much to know if any of you can speed up the search process without 
sacrificing any of the search parameters. 


NOTE: When inputting a program, pay strict attention to spacing, etc. 

In many of the programs printed in Cursor, there are not more than a 
couple of bytes left. If you have input spaces that are not shown in the 
listing, the program may not run. Also, please make sure you proofread 
what you input!! 90% of the time an individual thinks a program contains 
glitches, they are operator errors. EXAMPLE: 

1ЙЙ IF A=BC=A Will not work. You cannot put two characters of the same 

type together! 
llf IF A=B@(1)=A Will work! 
120 IF A=BIF C=DGOTO 17 Will Work 
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LIFE SYNTHESIS MODEL PROGRAM EXPLANATION 


рекет енеден ке ок c тана нні 


1- 15 
20 
21- 22 
30 
40- 49 


51- 62 
8Й- 81 
1ЙЙ- ig3 
lig- 120 
130 

5g 

51g 

6ЙЙ 

610 

615- 630 
1000-10187 


2002 
2010 
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Input locations of Starter Colony 

Put up field border 2 

Put up grid marks 

Put up starter colony 

Sets Horizontal Search Parameters (using Black pixel locators 
at 615-63f) 

Sets Vertical search parameters 

Sets Colors and splits screen 

Puts up search locators 

Determines if Pixel is black or white-sends to 

appropriate subroutine 

Erases search locators if current search has ended 

If Pixel is white-Send to subroutine that checks status of 

adjacent pixel locations 

Creates new cell & updates "Birth" count- changes color to 

green and back 

If pixel is black-Sends to subroutine that checks status of 

adjacent pixel locations | 

Erases cell and updates "Deaths" count-changes color to 

red and back 

Sets black pixel locators 

Adjacent pixel search 

Updates "Population" count 

If Рору1а&1оп=Й Terminates program 


SAMPLE STARTER COLONY 


1-Х=45 Ү=31 
2-Х=45 Y=3ø 
3=Х=46 Ү-31 
4-Х=46 Ү=29 
5.Х-46 Ү-28 
6-Х=47 Ү-29 
7-Х-48 Ү-31 
8-Х-48 Y=3ø 
9-Х-49 Ү-31 


LONG AWAITED NEW BALLY 
GAME CARTRIDGES ARE 

Y 1111 
2008 Space Invaders 
3005 Bally Pin (ball) 


Both cartridges should 
prove to Бе extremely 
popular, as they are 
commercial "Penny Arcade" 
quality.  Fantastic!!!! 
For those unable to find 
the cartridges: Send 
check or money order for 
$28.30 per cartridge 


4 
„зат (includes tax, postage) 
іні to: Seebree's Computing 
STARTER COLONY | 456 Granite, Monrovia, СА 
LOCATOR GRID 91016 


CURSOR PAGE 7 


SYNTHESIS MODEL Ву: Fred Cornett 52=44 


&(9)=5й; CLEAR ;PRINT "LIFE SYNTHESIS 
Бай: ПОИ 2=1;Е=86; А Т=Й;Н =39:0=0: Тей; 5+0; Вей ; Laf ; Мед; №=жЙ ; P=9 ; О=Й 
PRINT PRINT "INPUT (X, TOR 9 
FOR AelTD 9;PRINT g^ "CELL £", i Saar "X"Q(A) 
‘INPUT “era ( Asia); NEXT Re W=118 
CLEAR ;BOX 56,1 1;BOX 56, 19,46,46,2 
FOR Gs36T0 765 422,4 ths Mr G,41,1,1,1; BOX Е -4,1,1,1;NEXT 6 
FOR U=ØTO 4ZSTEP 17;BOX 33,0,1,1, b BOX 78,U,1,1,1;NEXT U 
CXu-77;CYu-16;PRINT £1,"POPULATIONe",P 
FOR А=1ТО 9;В0Х Q(A),0(A*17),1,1,1;NEXT А 
IF QIF T E=36;F=75;GOTO 50 
IF QIF T=ØIF 5 Ex36;F-66;G0T0 Sf 
ТЕ QIF ТеЙІР Se/IF R E236; Ғ-56;60Т70 50 
IF QIF T=ØIF S=ØIF Н«ЙЕ-36;Ғе46;5070 50 
IF Q=ØIF RIF T Е=46;Р=75;60ТО 50 
IF Q=ØIF RIF SIF Т=ЙЕ=46;Р=66;60ТО SØ 
IF Ц=ЙТР RIF 5е-ЙІҒ Т«ЙЕз46; Ға56; GOTO 50 
IF д-ЙІҒ RagIF SIF Т:Е-56;Ғе-75;00Т0 5Й 
IF (= ТЕ RæfIF 5=Й1Р T E=66;F=75;GOTO SA 
IF Q=ØIF ReZIF SIF Т-ЙЕ-56;Ғ-66 
дер; КАЙ, ;5=Й;Т=Й 
IF LIF 0 Н=39;1=Й;бОТО 61 
IF LIF беЙІҒ N He39;I«18;GDTO 61 
IF LIF OsgIF N=ØIF M нез9;1=2/; 6070 61 
IF LIF O=ØIF N=ØIF Мейн 3; j1-38;&0TO 61 
IF L=ØIF MIF 0 Н=3Й;1=Й;60Т 
IF L=ØIF MIF NIF б=ЙН=3Ё; ЗЕ — 61 
IF L=ØIF MIF МеЙІҒ б=ЙН=3Й;1=2Й;СОТО 61 
IF СЕИТЕ МеЙІР NIF 0 Н=2й;1=Й; 5870 бі 
IF [=ЙЇР МеЙІР NeZIF 0 Н=1Й;1=Й; ОТО 61 
IF і-ЙІҒ МеЙІР NIF О=рн=20; Tack g 
Lx; Мер ; №=Й ; О=Й 
тА ЕП) "I 5(2)=118; &(3)2118 
ВС-116;ҒЕ-114;%(91-27 
су=40; PRINT CEURRENT 
СҮ=32; PRINT #1,"GENERATION #",2 
FOR Х=ЕТО F;FOR YsHTO ISTEP -1 
BOX Х,43,1,1,1;В0Х 31,Y,1,1,1 
IF РХ(Х, ӨШ sa 
IF PX(X,Y)GOSUB 6ИЙ 
NEXT Y;BOX 31,19,1,48,2;NEXT X;BOX 55,43,48,1,2;Z=Z+1;GOTO 40 


| Cz; GOSUB \ЙЙЙ 


IF С-34(2)-147;8(3)-147;В0ОХ X je Bel; CYe24; PRINT #1, "BIRTHS=", B; 

Сар; P-P41;&(2)2W;& (3) =; 60508 "ин retin 

Caf; RETURN 

С=Й: 60508 1000 

ТЕ (С>3)+(С<2)&(2)=9Й;& МЕ 

Сей; PzP-1;&(2)zW;&(3)zW; 
F X<46Q=1 

If Х<561Е X»45Re1 


) 
60508 SPAB Е RN 


| IF Х<66ІҒ X»555z1 


IF Х>65Т-1 
IF Ү2291-1 
IF Ү>191Ғ \<31М=1 
IF Y29IF Y«21Nzi 
IF \<110=1 


Ø C=Ø; RETURN 


Гер; IF PX(X,Y-1)CsC41 
ТЕ PX (žel, Yo Сабет 
IF PX(X-1,Y)CsC41 

IF РХ(Х-1,У+1)С=С+1 
IF PX(X, У+1)С=С+1 

IF PX(X41, У+1 )С=С+1 
ТЕ РХ (Х+1 У) С=С+1 

ТЕ Ра. Y-1)CsC41 
RETU 


17-4; ете Ин Батат #1 ЕТІ MINATED"; STOP CURSOR PAGE 8 


RETURN 


CURSOR 


г. 


Cornett, Ed. 


6115 Clybourn 725 
North Hollywood, CA 91606 


FIRST CLASS 


3)=9й;ВОХ X, 1,2;D=D+1;CY=16;PRINT #1,"DEATHS=",D; 


